home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 145 / Tiger_Disk_145_19xx_Tiger-Crew-Disk_de_Side_A.d64 / >aus und vorbei< (.txt) next >
Commodore BASIC  |  2023-02-26  |  3KB  |  82 lines
  1. 2 printchr$(147):dima(300,3):wa(1)=17:wa(.)=17:p=54272:z=.:poke53280,.:poke53281,.
  2. 4 fors=54272to54296:pokes,.:next:pokep+2,25:pokep+3,8:pokep+24,15:pokep+6,255
  3. 6 read h, l, dr
  4. 8 a(n,.)=h:a(n,1)=l:a(n,2)=dr:n=n+1:ifdr=. goto 14
  5. 10 goto6
  6. 12 x=x+1:if x=1 then poke54296,2:
  7. 14 n=.:print"[147]              h a l l o !              "
  8. 16 ifa(n,.)=-1 goto 32
  9. 18 da=ti:pokep+1,a(n,.):pokep,a(n,1):pokep+4,wa(i)+1
  10. 20 ifti<da+a(n,2)then20
  11. 22 pokep+4,wa(i):n=n+1:goto16
  12. 24 data 6,2,7,9,1,8,9,12,14,19,10,13,16,7,8,-1,-1,-1
  13. 26 data 9,12,5,11,3,7,10,13,13,14,19,14,14,10,14,-1,-1,-1
  14. 28 data 6,12,13,8,16,13,7,18,13,21,5,14,-1,-1,-1
  15. 30 data 8,11,16,11,14,12,28,34,1,-1,-1,-1,,,,,,
  16. 32 z=z+1:n=.:i=.
  17. 34 ifz=2thenn=6:i=1:pokep+5,9:pokep+6,15
  18. 36 ifz=3thenn=12:i=1:print"           ihr seid noch da?"
  19. 38 ifz=4thenn=.:i=.:pokep+6,240
  20. 40 ifz=5thenn=.:print"[153]            das ist schoen!"
  21. 42 ifz=6thenn=6:i=1:pokep+5,7:pokep+6,128
  22. 44 ifz=7thenn=17:i=1:poke54272,33:print"[154]   aber leider muss ich schon gehen!!"
  23. 46 ifz=8thenn=.:z=.:pokep+6,255:goto50
  24. 48 goto16
  25. 50 print"   [159]   [156]         [158]   [129]   [149]   [152]   [153]   [154]   [155]  [150]     ";
  26. 52 ti$="000003":wait161,1
  27. 100 poke53280,0:poke53281,0:print"[147]"
  28. 102 print"[152]              [213][195][195][195][195][195][195][195][195][195][195][201]
  29. 104 [153]"              peekpoke(NULL)(NULL)(NULL)(NULL)(NULL)right$right$right$right$right$print#peek
  30. 106 print"              [194][151][213][213][213][213][213][201][201][201][201][201][152][194]
  31. 108 [153]"              peek          peek
  32. 110 print"              [194][149] [223][169][223]..[169][223][169] [152][194]
  33. 112 [153]"              peekverify  (NULL)(NULL)(NULL)(NULL)(NULL)step  print#peek
  34. 114 print"              [194][149]    )(    [152][194]
  35. 116 [153]"              peekverify          print#peek
  36. 118 print"              [202][195][184][184][184][184][184][184][184][184][146][195][203]
  37. 120 [153]"print#                (NULL)(NULL)(NULL).logcos:(NULL) wait"
  38. 122 [153]"print#            pospoke*************rndprint#pos
  39. 124 print"[152]            [207]   [151][162][162][162][162][162][162][162][162]   [152][208]
  40. 126 [153]"print#            usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr
  41. 128 print
  42. 136 ti$="000003":wait161,1
  43. 138 if a$=chr$(160)then140
  44. 140 poke53280,. :poke53281,0
  45. 142 s=54272:pokes+24,15:pokes,220:pokes+1,17:pokes+5,215:pokes+6,202
  46. 144 pokes+7,121:pokes+8,89 :pokes+12,33 :poke13,215
  47. 146 print"[147]":v=53248:pokev+21,1
  48. 148 fors1=12288to12350:readq1:pokes1,q1:next
  49. 150 fors2=12416to12478:readq2:pokes2,q2:next
  50. 152 pokev+1,155:
  51. 154 fora=1to8 :printchr$(147):
  52. 156 printtab(120)"[156]                                       "
  53. 158 print"    schluss - aus - ende und vorbei!   "
  54. 160 print" [156]                                      "
  55. 162 for b=0to10
  56. 164 nextb,a:gosub 166
  57. 166 k=192:pokev+2,k
  58. 168 ford=1to506step8
  59. 170 rd=int(d/256):ld=d-rd*256
  60. 172 pokev,ld:pokev+16,rd:
  61. 174 ifk=192then gosub206
  62. 176 ifk=193then gosub208
  63. 178 ifk=194 then gosub210:
  64. 180 poke2040,k:fort=0to1 :next:ift >1 thenprintchr$(144)
  65. 182 k=k+1:ifk>194thenk=192
  66. 184 for y=0to250step-5:pokev+23,29:pokev+29,29:pokev+8,y:pokev+4,y:poke53281,0
  67. 186 pokev+2,y:pokev+16,y:pokev+33,y: nexty:pokev+39,16*rnd(0)
  68. 188 next
  69. 190 print"":goto212
  70. 192 data255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  71. 194 data255,255,255,109,107,54,109,90,210,109,58,20,109,90,214,19,106,214,255
  72. 196 data255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  73. 198 data255,255,255,255,255,255,255,255
  74. 200 data0,0,0,0 ,0,0,0 ,0,0 ,0,0 ,0,0 ,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  75. 202 data 0,0,0,0,6,0,96,31,24,248,62,60,123,189,222,238,255,119,221,255,187
  76. 204 data123,189,222,55,126,244,63,221,252,19,24,200
  77. 206 pokes+4,17 :pokes+4,16 :return:
  78. 208 pokes+11,65 :pokes+11,128:return
  79. 210 pokes+14,33 :pokes+14,129:return
  80. 212 print"[129]       gruesst alle 'tiger'-freunde":ti$="000003":wait161,1
  81. 214 poke53280,14:poke53281,6:poke646,14:sys58253:sys65511
  82.